home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / touch.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-01-09  |  2.9 KB  |  58 lines
  1. 10  RANDOMIZE TIMER
  2. 20  ' TOUCH.BAS - AN ADULT TOUCHING GAME
  3. 30  ' BY JOHN SKINNER - 9/84
  4. 40  SCREEN 0,1:WIDTH 80:COLOR 7,0,0:KEY OFF:LOCATE ,,0:CLS
  5. 50  LOCATE 1,1:PRINT "                        Welcome to the game of":COLOR 15:PRINT "                                TOUCH":COLOR 7
  6. 60  PRINT:PRINT "   In this game, you will be asked the number of players, their names and sex,"
  7. 70  PRINT "and for two lists of anatomical parts that you may wish to touch or have"
  8. 80  PRINT "touched, one list of female parts and one list of male parts."
  9. 90  PRINT:PRINT "   In accordance with prevailing prejudices, this version of the game will"
  10. 100  PRINT "choose partners of the opposite sex only (watch for further versions of the"
  11. 110  PRINT "game for those of a more venturesome bent).
  12. 120  PRINT:PRINT "   During play, two names will be picked at random, along with two body parts"
  13. 130  PRINT "from the lists you entered.  One of the chosen couple will be instructed to"
  14. 140  PRINT "touch the other person's part with their part for a period of time."
  15. 150  PRINT:PRINT "   The base unit of time for touching is 10 seconds.  If you wish, you may add"
  16. 160  PRINT "a multiplier to any parts you find particularly interesting. Remember, if you"
  17. 170  PRINT "have a multiplier entered for each of the chosen parts, the effects accumulate."
  18. 180  LOCATE 22,5:PRINT "Press any key to continue"
  19. 190  A$=INKEY$:IF LEN(A$)<1 THEN 190
  20. 200  DIM FEMALENAME$(12), MALENAME$(12), FEMALEPART$(20), MALEPART$(20), FMULT(20), MMULT(20)
  21. 210  CLS:PRINT "I need to know how many females will be playing";:INPUT NF
  22. 220  PRINT:PRINT "And how many males";:INPUT NM
  23. 230  PRINT:PRINT "Ok. Now I need the players names. Please enter the name for:"
  24. 240  PRINT:FOR I=1 TO NF: INPUT "Female player"; FEMALENAME$(I):NEXT I
  25. 250  PRINT:FOR I=1 TO NM:INPUT "Male player"; MALENAME$(I):NEXT I
  26. 260  LOCATE 22,5:PRINT "Press any key to continue"
  27. 270  A$=INKEY$: IF LEN(A$)<1 THEN 270
  28. 280  CLS:PRINT "Now for the lists of body parts.  (press <enter> when done)"
  29. 290  PRINT:PRINT " #     Female part          Mult           Male part          Mult"
  30. 300  X=4:FOR I=0 TO 19:IF I<9 THEN LOCATE X+I,2 ELSE LOCATE X+I,1
  31. 310  PRINT I+1;:NEXT I
  32. 320  NFP=0:FOR I=1 TO 20:LOCATE X+NFP,8:LINE INPUT FEMALEPART$(I)
  33. 330  IF FEMALEPART$(I)="" THEN I=20:GOTO 370
  34. 340  LOCATE X+NFP,30:PRINT "1";:LOCATE X+NFP,30:LINE INPUT A$
  35. 350  IF A$="" THEN FMULT(I)=1 ELSE FMULT(I)=VAL(A$)
  36. 360  NFP=NFP+1
  37. 370  NEXT I
  38. 380  NMP=0:FOR I=1 TO 20:LOCATE X+NMP,44:LINE INPUT MALEPART$(I)
  39. 390  IF MALEPART$(I)="" THEN I=20:GOTO 430
  40. 400  LOCATE X+NMP,64:PRINT "1";:LOCATE X+NMP,64:LINE INPUT A$
  41. 410  IF A$="" THEN MMULT(I)=1 ELSE MMULT(I)=VAL(A$)
  42. 420  NMP=NMP+1
  43. 430  NEXT I
  44. 435  CLS:WIDTH 40
  45. 440  CLS:A=INT(RND*(NF))+1:PLAYER1$=FEMALENAME$(A)
  46. 450  A=INT(RND*(NM))+1:PLAYER2$=MALENAME$(A)
  47. 460  A=INT(RND*(NFP))+1:PART1$=FEMALEPART$(A):MULT1=FMULT(A)
  48. 470  A=INT(RND*(NMP))+1:PART2$=MALEPART$(A):MULT2=MMULT(A)
  49. 480  A=INT(RND*(2))+1
  50. 490  PRINT:PRINT:PRINT:COLOR 2:IF A=1 THEN PRINT PLAYER1$;: ELSE PRINT PLAYER2$;
  51. 500  COLOR 7:PRINT ", touch ";:COLOR 2:IF A=1 THEN PRINT PLAYER2$;:COLOR 7:PRINT "'s": ELSE PRINT PLAYER1$;:COLOR 7:PRINT "'s"
  52. 510  PRINT:COLOR 4:IF A=1 THEN PRINT PART2$;:COLOR 7:PRINT " with your ";:ELSE PRINT PART1$;:COLOR 7:PRINT " with your ";
  53. 520  COLOR 4:IF A=1 THEN PRINT PART1$;:COLOR 7:PRINT ".":ELSE PRINT PART2$;:COLOR 7:PRINT "."
  54. 530  TIME=8000*MULT1*MULT2
  55. 540  FOR I=1 TO TIME:NEXT I:PRINT CHR$(7):LOCATE 22,5:PRINT "Press any key to continue"
  56. 550  A$=INKEY$:IF LEN(A$)<1 THEN 550
  57. 560  GOTO 440
  58.